with Ada.Text_IO;
use Ada.Text_IO;

package body Epoch is

   protected body Epoch is
      procedure Get_Start_Time(T : out Ada.Real_Time.Time) is
      begin
         if First then
            First := False;
            Start := Ada.Real_Time.Clock;
            Ada.Text_IO.Put_Line("Calculou o tempo de inicio apenas uma vez...");
         end if;
         T := Start;
      end Get_Start_Time;
   end Epoch;

end Epoch;
